home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Dev / AmigaTalk / Intuition / Menu.p < prev    next >
Encoding:
Text File  |  2000-05-03  |  10.7 KB  |  319 lines
  1. pTempVar <- <primitive 110 15 >
  2. <primitive 112 pTempVar 1  " new: " \
  3.   #( #[ 16r51 16r50 16r21 16rFA 16r03 16rB6 16rF2 16r21 16r66 16r20 16rF3 \
  4.         16rF5] \
  5.     #(  )) >
  6.  
  7. <primitive 112 pTempVar 2  " setMenuName: " \
  8.   #( #[ 16r53 16r30 16r21 16r50 16r16 16rFA 16r05 16rB6 16rF2 16r21 16r66 \
  9.         16rF5] \
  10.     #( 13  )) >
  11.  
  12. <primitive 112 pTempVar 3  " getMenuName " \
  13.   #( #[ 16r52 16r30 16r50 16r16 16rFA 16r04 16rB6 16rF1 16r66 16rF3 16rF5 \
  14.        ] \
  15.     #( 13  )) >
  16.  
  17. <primitive 112 pTempVar 4  " setFirstItem: " \
  18.   #( #[ 16r53 16r59 16r21 16r50 16r16 16rFA 16r05 16rB6 16rF2 16r21 16r67 \
  19.         16rF5] \
  20.     #(  )) >
  21.  
  22. <primitive 112 pTempVar 5  " getFirstItem " \
  23.   #( #[ 16r52 16r59 16r50 16r16 16rFA 16r04 16rB6 16rF1 16r67 16rF3 16rF5 \
  24.        ] \
  25.     #(  )) >
  26.  
  27. <primitive 112 pTempVar 6  " setNextMenu: " \
  28.   #( #[ 16r53 16r58 16r21 16r50 16r16 16rFA 16r05 16rB6 16rF2 16r21 16r60 \
  29.         16rF5] \
  30.     #(  )) >
  31.  
  32. <primitive 112 pTempVar 7  " getNextMenu " \
  33.   #( #[ 16r52 16r58 16r50 16r16 16rFA 16r04 16rB6 16rF1 16r60 16rF3 16rF5 \
  34.        ] \
  35.     #(  )) >
  36.  
  37. <primitive 112 pTempVar 8  " setFlags: " \
  38.   #( #[ 16r53 16r54 16r21 16r50 16r16 16rFA 16r05 16rB6 16rF2 16r21 16r65 \
  39.         16rF5] \
  40.     #(  )) >
  41.  
  42. <primitive 112 pTempVar 9  " getFlags " \
  43.   #( #[ 16r52 16r54 16r50 16r16 16rFA 16r04 16rB6 16rF1 16r65 16rF3 16rF5 \
  44.        ] \
  45.     #(  )) >
  46.  
  47. <primitive 112 pTempVar 10  " registerTo: " \
  48.   #( #[ 16r54 16r21 16r16 16rFA 16r03 16rB6 16rF2 16rF5] \
  49.     #(  )) >
  50.  
  51. <primitive 112 pTempVar 11  " remove " \
  52.   #( #[ 16r50 16r50 16r16 16rFA 16r03 16rB6 16rF2 16rF5] \
  53.     #(  )) >
  54.  
  55. <primitive 112 pTempVar 12  " setMenuSize: " \
  56.   #( #[ 16r21 16r0A 16r30 16r72 16r21 16r0A 16r31 16r73 16r53 16r52 16r22 \
  57.         16r50 16r16 16rFA 16r05 16rB6 16rF2 16r53 16r53 16r23 16r50 \
  58.         16r16 16rFA 16r05 16rB6 16rF2 16r22 16r63 16r23 16r64 16rF5 \
  59.        ] \
  60.     #(  )) >
  61.  
  62. <primitive 112 pTempVar 13  " setStartPoint: " \
  63.   #( #[ 16r21 16r0A 16r30 16r72 16r21 16r0A 16r31 16r73 16r53 16r50 16r22 \
  64.         16r50 16r16 16rFA 16r05 16rB6 16rF2 16r53 16r51 16r23 16r50 \
  65.         16r16 16rFA 16r05 16rB6 16rF2 16r22 16r61 16r23 16r62 16rF5 \
  66.        ] \
  67.     #(  )) >
  68.  
  69. <primitive 112 pTempVar 14  " getMenuSize " \
  70.   #( #[ 16r52 16r52 16r50 16r16 16rFA 16r04 16rB6 16r63 16r52 16r53 16r50 \
  71.         16r16 16rFA 16r04 16rB6 16r64 16r13 16r14 16r81 16r00 16rF3 \
  72.         16rF5] \
  73.     #( #@  )) >
  74.  
  75. <primitive 112 pTempVar 15  " getStartPoint " \
  76.   #( #[ 16r52 16r50 16r50 16r16 16rFA 16r04 16rB6 16r61 16r52 16r51 16r50 \
  77.         16r16 16rFA 16r04 16rB6 16r62 16r11 16r12 16r81 16r00 16rF3 \
  78.         16rF5] \
  79.     #( #@  )) >
  80.  
  81. <primitive 98 #Menu \
  82.   <primitive 97 #Menu #Glyph #AmigaTalk:Intuition/Menu.st \
  83.    #(  #nextMenu #leftEdge #topEdge #width #height #flags #menuName #firstItem ) \
  84.    #( #new: #setMenuName: #getMenuName #setFirstItem: #getFirstItem #setNextMenu:  \
  85.        #getNextMenu #setFlags: #getFlags #registerTo: #remove #setMenuSize: #setStartPoint:  \
  86.        #getMenuSize #getStartPoint  ) \
  87.   pTempVar 4 6 >>
  88.  
  89. pTempVar <- <primitive 110 21 >
  90. <primitive 112 pTempVar 1  " new: " \
  91.   #( #[ 16r51 16r51 16r21 16rFA 16r03 16rB6 16rF2 16r21 16r6C 16r20 16rF3 \
  92.         16rF5] \
  93.     #(  )) >
  94.  
  95. <primitive 112 pTempVar 2  " setSubItem: " \
  96.   #( #[ 16r53 16r30 16r21 16r51 16r1C 16rFA 16r05 16rB6 16rF2 16r21 16r6A \
  97.         16rF5] \
  98.     #( 12  )) >
  99.  
  100. <primitive 112 pTempVar 3  " getSubItem " \
  101.   #( #[ 16r52 16r30 16r51 16r1C 16rFA 16r04 16rB6 16rF1 16r6A 16rF3 16rF5 \
  102.        ] \
  103.     #( 12  )) >
  104.  
  105. <primitive 112 pTempVar 4  " setSelectFill: " \
  106.   #( #[ 16r53 16r30 16r21 16r51 16r1C 16rFA 16r05 16rB6 16rF2 16r21 16r68 \
  107.         16rF5] \
  108.     #( 11  )) >
  109.  
  110. <primitive 112 pTempVar 5  " getSelectFill " \
  111.   #( #[ 16r52 16r30 16r51 16r1C 16rFA 16r04 16rB6 16rF1 16r68 16rF3 16rF5 \
  112.        ] \
  113.     #( 11  )) >
  114.  
  115. <primitive 112 pTempVar 6  " setItemFill: " \
  116.   #( #[ 16r53 16r30 16r21 16r51 16r1C 16rFA 16r05 16rB6 16rF2 16r21 16r67 \
  117.         16rF5] \
  118.     #( 10  )) >
  119.  
  120. <primitive 112 pTempVar 7  " getItemFill " \
  121.   #( #[ 16r52 16r30 16r51 16r1C 16rFA 16r04 16rB6 16rF1 16r67 16rF3 16rF5 \
  122.        ] \
  123.     #( 10  )) >
  124.  
  125. <primitive 112 pTempVar 8  " setNextItem: " \
  126.   #( #[ 16r53 16r57 16r21 16r51 16r1C 16rFA 16r05 16rB6 16rF2 16r21 16r60 \
  127.         16rF5] \
  128.     #(  )) >
  129.  
  130. <primitive 112 pTempVar 9  " getNextItem " \
  131.   #( #[ 16r52 16r57 16r51 16r1C 16rFA 16r04 16rB6 16rF1 16r60 16rF3 16rF5 \
  132.        ] \
  133.     #(  )) >
  134.  
  135. <primitive 112 pTempVar 10  " setCommand: " \
  136.   #( #[ 16r53 16r56 16r21 16r51 16r1C 16rFA 16r05 16rB6 16rF2 16r21 16r69 \
  137.         16rF5] \
  138.     #(  )) >
  139.  
  140. <primitive 112 pTempVar 11  " getCommand " \
  141.   #( #[ 16r52 16r56 16r51 16r1C 16rFA 16r04 16rB6 16rF1 16r69 16rF3 16rF5 \
  142.        ] \
  143.     #(  )) >
  144.  
  145. <primitive 112 pTempVar 12  " setMutualExclude: " \
  146.   #( #[ 16r53 16r55 16r21 16r51 16r1C 16rFA 16r05 16rB6 16rF2 16r21 16r66 \
  147.         16rF5] \
  148.     #(  )) >
  149.  
  150. <primitive 112 pTempVar 13  " getMutualExclude " \
  151.   #( #[ 16r52 16r55 16r51 16r1C 16rFA 16r04 16rB6 16rF1 16r66 16rF3 16rF5 \
  152.        ] \
  153.     #(  )) >
  154.  
  155. <primitive 112 pTempVar 14  " setFlags: " \
  156.   #( #[ 16r53 16r54 16r21 16r51 16r1C 16rFA 16r05 16rB6 16rF2 16r21 16r65 \
  157.         16rF5] \
  158.     #(  )) >
  159.  
  160. <primitive 112 pTempVar 15  " getFlags " \
  161.   #( #[ 16r52 16r54 16r51 16r1C 16rFA 16r04 16rB6 16rF1 16r65 16rF3 16rF5 \
  162.        ] \
  163.     #(  )) >
  164.  
  165. <primitive 112 pTempVar 16  " setItemSize: " \
  166.   #( #[ 16r21 16r0A 16r30 16r72 16r21 16r0A 16r31 16r73 16r53 16r52 16r22 \
  167.         16r51 16r1C 16rFA 16r05 16rB6 16rF2 16r53 16r53 16r23 16r51 \
  168.         16r1C 16rFA 16r05 16rB6 16rF2 16r22 16r63 16r23 16r64 16rF5 \
  169.        ] \
  170.     #(  )) >
  171.  
  172. <primitive 112 pTempVar 17  " setStartPoint: " \
  173.   #( #[ 16r21 16r0A 16r30 16r72 16r21 16r0A 16r31 16r73 16r53 16r50 16r22 \
  174.         16r51 16r1C 16rFA 16r05 16rB6 16rF2 16r53 16r51 16r23 16r51 \
  175.         16r1C 16rFA 16r05 16rB6 16rF2 16r22 16r61 16r23 16r62 16rF5 \
  176.        ] \
  177.     #(  )) >
  178.  
  179. <primitive 112 pTempVar 18  " getItemSize " \
  180.   #( #[ 16r52 16r52 16r51 16r1C 16rFA 16r04 16rB6 16r63 16r52 16r53 16r51 \
  181.         16r1C 16rFA 16r04 16rB6 16r64 16r13 16r14 16r81 16r00 16rF3 \
  182.         16rF5] \
  183.     #( #@  )) >
  184.  
  185. <primitive 112 pTempVar 19  " getStartPoint " \
  186.   #( #[ 16r52 16r50 16r51 16r1C 16rFA 16r04 16rB6 16r61 16r52 16r51 16r51 \
  187.         16r1C 16rFA 16r04 16rB6 16r62 16r11 16r12 16r81 16r00 16rF3 \
  188.         16rF5] \
  189.     #( #@  )) >
  190.  
  191. <primitive 112 pTempVar 20  " registerTo: " \
  192.   #( #[ 16r54 16r21 16r1C 16rFA 16r03 16rB6 16rF2 16rF5] \
  193.     #(  )) >
  194.  
  195. <primitive 112 pTempVar 21  " remove " \
  196.   #( #[ 16r50 16r51 16r1C 16rFA 16r03 16rB6 16rF2 16rF5] \
  197.     #(  )) >
  198.  
  199. <primitive 98 #MenuItem \
  200.   <primitive 97 #MenuItem #Menu #AmigaTalk:Intuition/Menu.st \
  201.    #(  \
  202.         #leftEdge #topEdge #width #height #flags #mutualExclude #itemFill #selectFill \
  203.         #subItem #nextSelect #itemName ) \
  204.    #( #new: #setSubItem: #getSubItem #setSelectFill: #getSelectFill #setItemFill:  \
  205.        #getItemFill #setNextItem: #getNextItem #setCommand: #getCommand #setMutualExclude:  \
  206.        #getMutualExclude #setFlags: #getFlags #setItemSize: #setStartPoint: #getItemSize #getStartPoint  \
  207.        #registerTo: #remove  ) \
  208.   pTempVar 4 6 >>
  209.  
  210. pTempVar <- <primitive 110 19 >
  211. <primitive 112 pTempVar 1  " new: " \
  212.   #( #[ 16r51 16r52 16r21 16rFA 16r03 16rB6 16rF2 16r21 16r6B 16r20 16rF3 \
  213.         16rF5] \
  214.     #(  )) >
  215.  
  216. <primitive 112 pTempVar 2  " setSelectFill: " \
  217.   #( #[ 16r53 16r30 16r21 16r52 16r1B 16rFA 16r05 16rB6 16rF2 16r21 16r68 \
  218.         16rF5] \
  219.     #( 11  )) >
  220.  
  221. <primitive 112 pTempVar 3  " getSelectFill " \
  222.   #( #[ 16r52 16r30 16r52 16r1B 16rFA 16r04 16rB6 16rF1 16r68 16rF3 16rF5 \
  223.        ] \
  224.     #( 11  )) >
  225.  
  226. <primitive 112 pTempVar 4  " setItemFill: " \
  227.   #( #[ 16r53 16r30 16r21 16r52 16r1B 16rFA 16r05 16rB6 16rF2 16r21 16r67 \
  228.         16rF5] \
  229.     #( 10  )) >
  230.  
  231. <primitive 112 pTempVar 5  " getItemFill " \
  232.   #( #[ 16r52 16r30 16r52 16r1B 16rFA 16r04 16rB6 16rF1 16r67 16rF3 16rF5 \
  233.        ] \
  234.     #( 10  )) >
  235.  
  236. <primitive 112 pTempVar 6  " setNextItem: " \
  237.   #( #[ 16r53 16r57 16r21 16r52 16r1B 16rFA 16r05 16rB6 16rF2 16r21 16r60 \
  238.         16rF5] \
  239.     #(  )) >
  240.  
  241. <primitive 112 pTempVar 7  " getNextItem " \
  242.   #( #[ 16r52 16r57 16r52 16r1B 16rFA 16r04 16rB6 16rF1 16r60 16rF3 16rF5 \
  243.        ] \
  244.     #(  )) >
  245.  
  246. <primitive 112 pTempVar 8  " setCommand: " \
  247.   #( #[ 16r53 16r56 16r21 16r52 16r1B 16rFA 16r05 16rB6 16rF2 16r21 16r69 \
  248.         16rF5] \
  249.     #(  )) >
  250.  
  251. <primitive 112 pTempVar 9  " getCommand " \
  252.   #( #[ 16r52 16r56 16r52 16r1B 16rFA 16r04 16rB6 16rF1 16r69 16rF3 16rF5 \
  253.        ] \
  254.     #(  )) >
  255.  
  256. <primitive 112 pTempVar 10  " setMutualExclude: " \
  257.   #( #[ 16r53 16r55 16r21 16r52 16r1B 16rFA 16r05 16rB6 16rF2 16r21 16r66 \
  258.         16rF5] \
  259.     #(  )) >
  260.  
  261. <primitive 112 pTempVar 11  " getMutualExclude " \
  262.   #( #[ 16r52 16r55 16r52 16r1B 16rFA 16r04 16rB6 16rF1 16r66 16rF3 16rF5 \
  263.        ] \
  264.     #(  )) >
  265.  
  266. <primitive 112 pTempVar 12  " setFlags: " \
  267.   #( #[ 16r53 16r54 16r21 16r52 16r1B 16rFA 16r05 16rB6 16rF2 16r21 16r65 \
  268.         16rF5] \
  269.     #(  )) >
  270.  
  271. <primitive 112 pTempVar 13  " getFlags " \
  272.   #( #[ 16r52 16r54 16r52 16r1B 16rFA 16r04 16rB6 16rF1 16r65 16rF3 16rF5 \
  273.        ] \
  274.     #(  )) >
  275.  
  276. <primitive 112 pTempVar 14  " setSubSize: " \
  277.   #( #[ 16r21 16r0A 16r30 16r72 16r21 16r0A 16r31 16r73 16r53 16r52 16r22 \
  278.         16r52 16r1B 16rFA 16r05 16rB6 16rF2 16r53 16r53 16r23 16r52 \
  279.         16r1B 16rFA 16r05 16rB6 16rF2 16r22 16r63 16r23 16r64 16rF5 \
  280.        ] \
  281.     #(  )) >
  282.  
  283. <primitive 112 pTempVar 15  " setStartPoint: " \
  284.   #( #[ 16r21 16r0A 16r30 16r72 16r21 16r0A 16r31 16r73 16r53 16r50 16r22 \
  285.         16r52 16r1B 16rFA 16r05 16rB6 16rF2 16r53 16r51 16r23 16r52 \
  286.         16r1B 16rFA 16r05 16rB6 16rF2 16r22 16r61 16r23 16r62 16rF5 \
  287.        ] \
  288.     #(  )) >
  289.  
  290. <primitive 112 pTempVar 16  " getSubSize " \
  291.   #( #[ 16r52 16r52 16r52 16r1B 16rFA 16r04 16rB6 16r63 16r52 16r53 16r52 \
  292.         16r1B 16rFA 16r04 16rB6 16r64 16r13 16r14 16r81 16r00 16rF3 \
  293.         16rF5] \
  294.     #( #@  )) >
  295.  
  296. <primitive 112 pTempVar 17  " getStartPoint " \
  297.   #( #[ 16r52 16r50 16r52 16r1B 16rFA 16r04 16rB6 16r61 16r52 16r51 16r52 \
  298.         16r1B 16rFA 16r04 16rB6 16r62 16r11 16r12 16r81 16r00 16rF3 \
  299.         16rF5] \
  300.     #( #@  )) >
  301.  
  302. <primitive 112 pTempVar 18  " registerTo: " \
  303.   #( #[ 16r54 16r21 16r1B 16rFA 16r03 16rB6 16rF2 16rF5] \
  304.     #(  )) >
  305.  
  306. <primitive 112 pTempVar 19  " remove " \
  307.   #( #[ 16r50 16r52 16r1B 16rFA 16r03 16rB6 16rF2 16rF5] \
  308.     #(  )) >
  309.  
  310. <primitive 98 #SubItem \
  311.   <primitive 97 #SubItem #MenuItem #AmigaTalk:Intuition/Menu.st \
  312.    #(  #nextItem #leftEdge #topEdge #width #height \
  313.         #mutualExclude #itemFill #selectFill #command #nextSelect #subItemName ) \
  314.    #( #new: #setSelectFill: #getSelectFill #setItemFill: #getItemFill #setNextItem:  \
  315.        #getNextItem #setCommand: #getCommand #setMutualExclude: #getMutualExclude #setFlags:  \
  316.        #getFlags #setSubSize: #setStartPoint: #getSubSize #getStartPoint #registerTo: #remove  ) \
  317.   pTempVar 4 6 >>
  318.  
  319.